rm(list=ls(all=TRUE))
#
library(MASS)
library(foreign)
library(basicspace)
#
setwd("/Users/ssaiegh/Mac/Representation Gap/Paper PA")
data <- read.dta("voters.dta")
attach(data,warn.conflicts = FALSE)
#
T <- cbind(P80N_1,P80N_2,P80ST_3,P80ST_4,P80ST_5,P80N_6,P80ST_7,P80ST_8,P80ST_9,P80ST_10,P80ST_11,P80ST_14,P80ST_15,P80ST_16)
#
mode(T) <- "double"
colnames(T) <- c("SANTOS","MUJICA","CASTRO","LULA","CHAVEZ","PINERA","EVO","KIRCHNER","ALAN",
"OBAMA","CALDERON","CORREA","LUGO","ORTEGA")
#
#
result <- blackbox(T,missing=c(12,13,14,96,98,99),dims=1,minscale=4,verbose=F)
#
